Download this file
1 2 3 4 5 6 7 8 9 10 11
iStringSize := LEN(STR := sInputString); IF xStart THEN; ParseDrummer(PT := T#100MS); ParseDrummer.IN := TRUE; IF ParseDrummer.Q AND iParseCount <= iStringSize THEN; xDone := FALSE; iParseCount := iParseCount + 1; ParseDrummer.IN := FALSE; ELSIF iParseCount > iStringSize THEN; xDone := TRUE; END_IF